home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 18 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  75 lines
  1. 10 ;RD TRK 18
  2. 20 HLF JSR LIST
  3. 30 LDY #$00
  4. 40 BMP1 LDA BUMP,Y; BUMP HEAD TO TRACK 1
  5. 50 JSR OUT
  6. 60 INY
  7. 70 CPY #$07
  8. 80 BNE BMP1
  9. 90 JSR UNLIS
  10. 100 JSR CHKERR; WAIT FOR ERROR CODE
  11. 110 JSR LIST
  12. 120 LDY #$00
  13. 130 CON LDA CONT,Y
  14. 140 INY
  15. 150 CPY #$06
  16. 160 BNE CON
  17. 170 JSR UNLIS
  18. 180 JSR TALK
  19. 190 JSR IN
  20. 200 STA HEAD
  21. 210 JSR UNTLK
  22. 220 LDA HEAD; XXXXXXXX HOLDS $1C00 FROM 1541
  23. 230 AND #$FC; 11111100
  24. 240 ORA #$03; XXXXXX11 CYCLE BITS 0 & 1
  25. 250 STA BMP+6
  26. 260 JSR LIST
  27. 270 LDY #$00
  28. 280 CON1 LDA BMP,Y; PUT CYCLED BYTE AT $1C00
  29. 290 JSR OUT
  30. 300 INY
  31. 310 CPY #$07
  32. 320 BNE CON1
  33. 330 JSR UNLIS; HEAD IS NOW 1/2 TRACK BELOW 1
  34. 340 RTS
  35. 350 SCREEN LDA #<HDR
  36. 360 STA $FB
  37. 370 LDA #>HDR
  38. 380 STA $FC
  39. 381 LDA #$00
  40. 382 STA $D020
  41. 383 STA $D021
  42. 384 LDA #$17
  43. 385 STA $D018
  44. 390 LDY #$00
  45. 400 HDRLP LDA ($FB),Y
  46. 410 BEQ HDREND
  47. 420 JSR PRINT
  48. 430 JSR INCFB
  49. 440 JMP HDRLP
  50. 450 HDREND RTS
  51. 460 BEQ HDREND
  52. 470 BRK
  53. 480 INCFB INC $FB
  54. 490 BNE INC1
  55. 500 INC $FC
  56. 510 INC1 RTS
  57. 520 HDR .B 147 158
  58. 530 .B "               [210]EAD [212]RACK
  59. 540 .B 13 13 159
  60. 550 .B "                   PEEKY
  61. 560 .B 13 13 154
  62. 570 .B "                 [205]L [194]UG
  63. 580 .B 13 13 156
  64. 590 .B "           (LEN) LENOPYRIGHT 1987
  65. 600 .B 13 13 129
  66. 610 .B "           [193]LL [210]IGHTS [210]ESERVED
  67. 620 .B 13 13 153
  68. 630 .B "(null)LACE DISK TO INTEROGATE IN DRIVE
  69. 640 .B 13 13
  70. 650 .B "[208]RESS RETURN WHEN READY
  71. 660 .B 13 13 30
  72. 670 .B "1541 DRIVES ONLY DEVICE # 8
  73. 680 .B 13 13 0
  74. 690 .F RD TRK TABLES
  75.